home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #3 / Amiga Plus CD - 2002 - No. 03.iso / AmigaPlus / Tools / Development / envCPP31 / c++ / rexx / function.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2002-01-01  |  2.9 KB  |  125 lines
  1. /* rexx macro */
  2.  
  3. options results                             /* enable return codes     */
  4.  
  5. if (left(address(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  6.  
  7.     address 'GOLDED.1'
  8.  
  9. 'LOCK CURRENT RELEASE=4'                    /* lock GUI, gain access   */
  10.  
  11. if (RC ~= 0) then
  12.  
  13.     exit
  14.  
  15. options failat 6                            /* ignore warnings         */
  16.  
  17. signal on syntax                            /* ensure clean exit       */
  18.  
  19. /* ------------------------- INSERT YOUR CODE HERE: ------------------ */
  20.  
  21. 'QUERY CAT'
  22.  
  23. if (RESULT = "deutsch") then do
  24.  
  25.     STRING.sNAME    = "Funktionsname"
  26.     STRING.sTYPE    = "Funktionstyp"
  27.     STRING.sCOMMENT = "<Beschreibung hier einfügen>"
  28. end
  29. else do
  30.  
  31.     STRING.sNAME    = "Function name"
  32.     STRING.sTYPE    = "Function type"
  33.     STRING.sCOMMENT = "<Insert description here>"
  34. end
  35.  
  36. 'REQUEST STRING TITLE="' || STRING.sNAME || '" VAR=NAME'
  37.  
  38. if ((RC = 0) & (NAME ~= "")) then do
  39.  
  40.     'REQUEST STRING TITLE="' || STRING.sTYPE || '" OLD="void" VAR=TYPE'
  41.  
  42.     if ((RC = 0) & (TYPE ~= "")) then do
  43.  
  44.         'FIX VAR=TYPE'
  45.  
  46.         if (RC = 0) then do
  47.  
  48.             'QUERY OPTIONFOLDMARKERS VAR=OPTIONFOLDMARKERS'
  49.             'QUERY OPTIONCOMMENT     VAR=OPTIONCOMMENT'
  50.  
  51.             'QUERY FOLDA VAR=FOLDSTART'
  52.             'QUERY FOLDB VAR=FOLDEND'
  53.  
  54.             'INSERT LINE'
  55.  
  56.             if (OPTIONCOMMENT = "TRUE") then do
  57.  
  58.                 HEAD = '/** ' || CENTER(' ' || NAME || ' ', 77, '-')
  59.  
  60.                 if (OPTIONFOLDMARKERS = "TRUE") then do
  61.  
  62.                     'FIRST'
  63.                     'TEXT T="' || FOLDSTART || ' "'
  64.                      'TEXT T="*"' || NAME || '*""'
  65.                     'CR'
  66.                     'CR'
  67.                 end
  68.  
  69.                 'FIRST'
  70.                 'TEXT CR T="' || LEFT(HEAD, 81) || '"'
  71.                 'CR'
  72.                 'FIRST'
  73.                 'TEXT CR T=" ' || STRING.sCOMMENT || '"'
  74.                 'CR'
  75.                 'FIRST'
  76.                 'TEXT CR T="**/"'
  77.                 'CR'
  78.             end
  79.             else if (OPTIONFOLDMARKERS = "TRUE") then do
  80.  
  81.                 'FIRST'
  82.                 'TEXT T="' || FOLDSTART || ' "'
  83.                  'TEXT T="*"' || NAME || '*""'
  84.                 'CR'
  85.                 'CR'
  86.             end
  87.  
  88.             'FIRST'
  89.             'TEXT CR T="' || TYPE || '"'
  90.             'TEXT CR T="' || NAME || '()"'
  91.             'TEXT CR T={'
  92.             'FIRST'                                  
  93.             'TAB'
  94.             'PING SLOT 0'
  95.             'FIRST'
  96.             'DOWN'
  97.             'TEXT CR T=}'
  98.  
  99.             if (OPTIONFOLDMARKERS = "TRUE") then do
  100.  
  101.                 'CR'
  102.                 'FIRST'
  103.                 'TEXT CR T="' || FOLDEND || '"'
  104.             end
  105.  
  106.             'PONG SLOT 0'
  107.         end
  108.     end
  109.  
  110. end
  111.  
  112. /* ---------------------------- END OF YOUR CODE ----------------------- */
  113.  
  114. 'UNLOCK' /* VERY important: unlock GUI */
  115.  
  116. exit
  117.  
  118. SYNTAX:
  119.  
  120. SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  121.  
  122. 'UNLOCK'
  123.  
  124. exit
  125.